home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / UNITS / PBLJII.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  2KB  |  65 lines
  1. {SECTION ..PbLJII }
  2. UNIT PbLJII;
  3.  
  4. {
  5. Description:  LaserJet II Escape sequences
  6.  
  7. Author      : Howard Richoux
  8. Date        : 1/21/91
  9. Last revised: 11/8/93 - added Envelope Printing stuff
  10. Application : IBM PC and compatibles, done in Turbo Pascal 5.5
  11. Status      : Placed in the Public Domain by HNR Software 1/29/1994
  12. Published in: none
  13. }
  14.  
  15. INTERFACE
  16.  
  17. Function LJIICmd(n : integer) : string;
  18.  
  19. Function LJIICmdText(n : integer) : string;
  20.  
  21.  
  22. IMPLEMENTATION
  23.  
  24. Function LJIICmd(n : integer) : string;
  25. var s : string;
  26.      begin
  27.      case n of
  28.          0    : s := #27 + 'E';       {RESET}
  29.          1    : s := #27 + '&k2S';    {132 col compressed mode}
  30.          2    : s := #27 + '&l0O';    {Portrait mode}
  31.          3    : s := #27 + '&l1O';    {Landscape mode}
  32.          4    : s := #27 + '(10U';    {IBM PC char set}
  33.          5    : s := #27 + '&k0S';    {10 CPI}
  34.          6    : s := #27 + '&k4S';    {12 CPI}
  35.          7    : s := #27 + '&l0H';    {FormFeed}
  36.          8    : s := #27 + '&l2H';    {Manual Feed}
  37.          9    : s := #27 + '&l81A';   {Legal Env size}
  38.          else   s := '';
  39.          end;
  40.      LJIICmd := s;
  41.      end;
  42.  
  43. Function LJIICmdText(n : integer) : string;
  44. var s : string;
  45.      begin
  46.      case n of
  47.          0    : s := 'RESET';
  48.          1    : s := '132 col compressed mode';
  49.          2    : s := 'Portrait mode (def.)';
  50.          3    : s := 'Landscape mode';
  51.          4    : s := 'IBM PC char set';
  52.          5    : s := '10 CPI';
  53.          6    : s := '12 CPI';
  54.          7    : s := 'FormFeed';
  55.          8    : s := 'Manual Feed';
  56.          9    : s := 'Legal Env size';
  57.          else   s := '';
  58.          end;
  59.      LJIICmdText := s;
  60.      end;
  61.  
  62.  
  63.  
  64. end.
  65.